home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 July / Ahoy_Magazine_87-07_1987_Double_L_Side_A.d64 / Data Express (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  34 lines
  1. 10 rem *** data express *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"[147][204]oading and [195]hecking [196]ata [204]ine:"
  4. 40 s=53000:j=s:rem *** change s to relocate ***
  5. 50 forb=0to11:reada
  6. 60 ifb=0thenl=peek(64)*256+peek(63):printchr$(19)tab(31)l:print
  7. 70 ifa<0ora>255then90
  8. 80 pokej+b,a:x=x+a:nextb:reada:ifa=xthen100
  9. 90 print"error in data line:"l:end
  10. 100 x=0:j=j+12:d=d+1:ifd<20then50
  11. 110 k=s+40:hi=int(k/256):lo=k-(hi*256):pokes+8,lo:pokes+10,hi
  12. 120 print"the data is ok...":print
  13. 130 print"sys"s"to use...":end
  14. 140 data169,79,32,210,255,169,78,162,48,160,207,236,1805
  15. 150 data0,3,208,14,204,1,3,208,9,162,139,160,1111
  16. 160 data227,169,70,32,210,255,32,210,255,142,0,3,1605
  17. 170 data140,1,3,96,173,0,2,201,83,240,3,76,1018
  18. 180 data139,227,32,121,0,240,248,201,34,208,244,164,1858
  19. 190 data122,200,132,251,164,123,132,252,32,115,0,201,1724
  20. 200 data0,240,228,201,44,240,224,201,34,208,241,165,2026
  21. 210 data122,56,229,251,240,111,201,17,144,2,169,16,1558
  22. 220 data133,253,169,255,133,2,32,115,0,184,80,98,1454
  23. 230 data192,0,208,83,224,1,240,4,224,8,208,75,1467
  24. 240 data134,254,184,80,81,134,63,132,64,32,121,0,1279
  25. 250 data201,44,208,59,184,80,76,196,64,144,55,208,1519
  26. 260 data6,228,63,144,49,240,47,232,208,7,200,208,1632
  27. 270 data4,162,255,160,255,134,65,132,66,169,1,166,1569
  28. 280 data254,160,0,32,186,255,165,253,166,251,164,252,2138
  29. 290 data32,189,255,169,63,166,65,164,66,32,216,255,1672
  30. 300 data76,116,164,162,11,44,162,14,44,162,8,76,1039
  31. 310 data58,164,32,121,0,240,240,201,44,208,236,32,1576
  32. 320 data115,0,32,138,173,32,247,183,166,20,164,21,1291
  33. 330 data230,2,165,2,240,130,201,1,240,143,208,155,1717
  34.